home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 61win / data1.cab / Lexical_Order_files / LEXICAL.BAS < prev    next >
BASIC Source File  |  2001-03-02  |  407b  |  15 lines
  1. 10    SUB Lexical(L$)    ! LEXICAL.BAS
  2. 20      DIM A$[30]
  3. 30      INTEGER I
  4. 40      !
  5. 50      A$="C:\HTB\PC"&L$[1;6]&".LEX"
  6. 60      ASSIGN @Io TO A$
  7. 70      STATUS @Io,3;I  ! Number of bytes in file
  8. 80      I=I DIV 2  ! Number of INTEGERs in file
  9. 90      ALLOCATE INTEGER T(1:I)
  10. 100     ENTER @Io;T(*)
  11. 110     ASSIGN @Io TO *
  12. 120     LEXICAL ORDER IS T(*)
  13. 130     DEALLOCATE T(*)
  14. 140   SUBEND
  15.